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11:02 AM 



DIRECTORY 
AltoDefs: 
ErrorDef s 
InlineDef 
LitDefs: 
P4Defs: F 
SymDefs: 
SymTabDef 
SystemDef 
TableDefs 
TreeDef s: 



FROM "altodefs", 
: FROM "errordefs", 
s: FROM "inlinedefs" 
FROM "litdefs", 
ROM M p4defs ,f , 
FROM "symdefs", 
s: FROM "symtabdefs" 
s: FROM "systemdefs" 
: FROM "tabledefs", 

FROM "treedefs"; 



Pass4Xa: PROGRAM 
IMPORTS 

ErrorDefs, LitDefs, P4Defs, SymTabDefs, SystemDefs, TreeDefs 
EXPORTS P4Defs ■ 
BEGIN 
OPEN SymTabDefs, TreeDefs; 

Repr: TYPE - P4Defs.Repr; 

-- pervasive definitions from SymDefs 

SEIndex: TYPE = SymDefs .SEIndex; 
ISEIndex: TYPE = SymDefs . ISEIndex; 
CSEIndex: TYPE = SymDefs .CSEIndex; 
RecordSEIndex: TYPE = SymDefs . recordCSEIndex; 
ArraySEIndex: TYPE = SymDefs. arrayCSEIndex; 

BitAddress: TYPE = SymDefs .BitAddress; 



tb: TableDefs. TableBase; 
ltb: TableDefs. TableBase: 
seb: TableDefs. TableBase; 
ctxb: TableDefs. TableBase; 



-- tree base address (local copy) 

-- literal base address (local copy) 

-- se table base address (local copy) 

-- context table base address (local copy) 



ExpANotify: PUBLIC TableDefs . TableNotif ier - 

BEGIN -- called by allocator whenever table area is repacked 

tb <- base[treetype] ; ltb <- base[LitDef s. 1 ttype]; 

seb «- base[SymDefs.setype]; ctxb <- base[SymDef s.ctxtype]; RETURN 

END; 



-- expression list manipulation 

MakeRecord: PROCEDURE [record: RecordSEIndex, expList: TreeLink] RETURNS [val: TreeLink] 
BEGIN 

sei: ISEIndex; 
const: BOOLEAN; 
subNode: Treelndex; 

EvaluateField: TreeMap B 
BEGIN 

type: CSEIndex; 
IF t s empty 

THEN BEGIN v <- empty; const ♦- FALSE END 
ELSE 

BEGIN type «- UnderType[(seb+sei) . idtype]; 

v «- P4Defs.RValue[t, P4Def s .BiasForType[type], 

Tar getRep[P4Defs.RepForType[ type]]]; 
IF ~P4Def s . AssignableRanges[type, P4Defs.0perandType[v]] 

THEN v <- ResolveSizes[v, type]; 
IF ~P4Defs.TreeLiteral[v] 
THEN 

WITH v SELECT FROM 
subtree »> 

SELECT (tb+index).name FROM 
mwconst «> NULL; 

unionx *> IF -( tb+index) .attrl THEN const «- FALSE; 
ENDCASE -> const «- FALSE; 
ENDCASE «> const ♦• FALSE; 
P4Defs.VPop[]; 
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END; 
sei <- NextSe[sei]; 
RETURN 
END; 

IF ~testtree[expList, list] 
THEN 
BEGIN 
IF expList ■ empty 

THEN pushproperlist[0] 

ELSE BEGIN ml push[expList] ; pushproperl ist[l] END; 
expList <- mlpop[]; 
END; 
sei <- f irstvisiblese[(seb+record) .f ieldctx]; const «- TRUE; 
val <- updatel ist[expList, EvaluateField]; 
subNode *- GetNode[val]; (tb+subNode) . attrl <- const; 
RETURN 
END; 

MakeArgRecord: PUBLIC PROCEDURE [record: RecordSEIndex, expList: TreeLink] RETURNS [val: TreeLink] 
BEGIN 

type: CSEIndex; 

(seb+record) .lengthUsed <- TRUE; 
SELECT listlength[expList] FROM 

=> val «- empty; 

1 »> 
BEGIN 

type <- UnderType[(seb+f irstvi si blese[( seb+record) . f ieldctx]) . id type] ; 
val «- P4Defs.RValue[expList, P4Def s .BiasForType[type], 

Targe tRep[P4Defs. Rep For Type [ type]]]; 
IF ~P4Def s . AssignableRanges[type, P4Def s .OperandType[val],] 

THEN val <- Resol veSizes[val , type]; 
P4Defs.VPop[]; 
END; 
ENDCASE => val «- MakeRecord[record, expList]; 
RETURN 
END; 

-- construction of packed values (machine dependent) 

WordLength: CARDINAL = Al toDef s .wordlength; 
ByteLength: CARDINAL = Al toDefs.charlength; 

FillMultiWord: PROCEDURE [words: DESCRIPTOR FOR ARRAY OF WORD, 

origin: CARDINAL, t: TreeLink] RETURNS [new/Origin: CARDINAL] ■ 
BEGIN 

desc: LitDef s. LitDescriptor ; 
i: CARDINAL; 
WITH s: t SELECT FROM 
literal ■> 

WITH s.info SELECT FROM 
word -> 
BEGIN 

desc «- LitDefs.LitDescriptorValue[index]; 
FOR i IN [0 . . desc. length) 

DO words[origin + i] <- (ltb+desc.offset)[i] ENDLOOP; 
END; 
ENDCASE => ERROR; 
ENDCASE «> ERROR; 
RETURN [origin + desc. length] 
END; 

Masks: ARRAY [0. .WordLength] OF WORD - 

[OB, IB, 3B, 7B, 17B, 37B, 77B, 177B, 377B, 777B, 
1777B, 3777B, 7777B, 17777B, 37777B, 77777B, 177777B]; 

PackRecord: PROCEDURE [record: RecordSEIndex, expList: TreeLink] RETURNS [TreeLink] « 
BEGIN 

n: CARDINAL » P4Def s .WordsForType[record]; 
root, type: RecordSEIndex; 
list: TreeLink; 
sei: ISEIndex; 
offset: CARDINAL; 

words: DESCRIPTOR FOR ARRAY OF WORD; 
i: CARDINAL; 
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more: BOOLEAN; 

StoreBits: PROCEDURE [sei: ISEIndex, value: WORD] ■ 
BEGIN 

OPEN InlineDefs; 
address: BitAddress; 
size, w, shift: CARDINAL; 
IF (seb+root) .argument 

THEN [address, size] «- FnField[se1] 

ELSE BEGIN address 4- (seb+sei) . idvalue; size <- (seb+sei) . idinf o END; 
w 4- address. wd; 

shift <- (WordLength-offset) - (address. bd+size) ; 

words[w] <- BITOR[words[w], BITSHIFT[BITAND[value , Masks[size]], shift]]; 
RETURN 
END; 

PackField: TreeScan ■ 
BEGIN 

node: Treelndex; 
address: BitAddress; 
typeld: ISEIndex; 
subType: CSEIndex; 
IF P4Defs.TreeLiteral[t] 

THEN StoreBits[sei, P4Def s ,TreeLiteralValue[t]] 
ELSE 

BEGIN node «- GetNode[t]; 
SELECT (tb+node). name FROM 
mwconst ■> 
BEGIN 

address <- IF (seb+root) .argument 
THEN FnField[sei]. offset 
ELSE (seb+sei) . idvalue; 
[] <- FillMultiWord[words, address. wd, (tb+node) .sonl]; 
END; 
unionx a > 
BEGIN 

WITH (tb+node). sonl SELECT FROM 
symbol a > typeld 4- index; 
ENDCASE «> ERROR; 
subType «- UnderType[(seb+sei) . idtype]; 
WITH (seb+subType) SELECT FROM 
union -> 

IF controlled THEN StoreBits[tagsei , (seb+typeld) . idvalue]; 
ENDCASE => ERROR; 
type «- LOOPHOLE[UnderType[typeId], RecordSEIndex]; 
list <- (tb+node) .son2; more *- TRUE; 
END; 
ENDCASE »> ERROR; 
END; 
sei «- NextSe[sei]; RETURN 
END; 

words ♦- DESCRIPTOR[SystemDefs.AllocateHeapNode[n], n]; 
FOR i IN [0 .. n) DO words[i] ♦■ ENDLOOP; 
root ♦- type <- RecordRoot[record]; 
offset <- if (seb+record) . length < WordLength 
THEN WordLength - (seb+record) . length 
ELSE 0; 
list <- expList; more 4- TRUE; 
WHILE more 

DO 

more «~ FALSE; 

sei 4- f irstvisiblese[(seb+type) .f ieldctx]; 

scanl ist[l ist, PackField]; 

ENDLOOP; 
push! ittree[LitDef s. FindLitDescrip tor [words]] ; 
pushtree[IF n=l THEN cast ELSE mwconst, 1]; setinfo[record] ; 
SystemDef s . FreeHeapNode[BASE[words]] ; 
RETURN [mlpop[]] 
END; 

LitFromTree: PROCEDURE [t: TreeLink] RETURNS [LitDef s. LitDescriptor] • 
BEGIN 

node: Treelndex; 
DO 
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RETURN [LitDefs.LitDescriptorValue[index]]; 
> EXIT; 



WITH t SELECT FROM 
literal ■> 

WITH info SELECT FROM 
word ■> 
ENDCASE 
subtree ■> 

BEGIN node <- index; 
SELECT (tb+node).name FROM 

mwconst, cast «> t «- (tb+node) .sonl; 
ENDCASE -> EXIT; 
END; 
ENDCASE -> EXIT; 
ENDLOOP; 
ERROR 
END; 

ExtractValue: PROCEDURE [t: TreeLink, addr: BitAddress, size: CARDINAL, type: CSEIndex] 
RETURNS [val: TreeLink] - 
BEGIN 

words: DESCRIPTOR FOR ARRAY OF WORD; 
i: CARDINAL; 

desc: LitDef s .LitDescriptor * LitFromTree[t]; 
n: CARDINAL = size/WordLength; 
IF n > 1 
THEN 

BEGIN 

IF addr.bd # THEN ErrorDef s .error[unimp1emented]; 

words <- DESCRIPTOR[SystemDefs.A11ocateHeapNode[n], n]; 

FOR i IN [0 .. n) DO words[i] *- ( ltb+desc.off set)[addr .wd+i] ENDLOOP; 

pushl ittree[LitDefs.FindLitDescrip tor [words]]; 

pushtree[mwconst, 1]; setinfo[type]; 

SystemDef s . FreeHeapNode[BASE[words]] ; 

val «- mlpop[]; 



END 
ELSE 
val 



RETURN 
END; 



P4Defs. MakeS tructuredLiteral[ 
InlineDefs.BITSHIFTC 

InlineDefs.BITSHIFT[( ltb+desc.off set) [addr. wd], addr.bd], 

-(WordLength - size)], 
type]; 



UnpackField: PUBLIC PROCEDURE [t: TreeLink, field: ISEIndex] RETURNS [val: TreeLink] * 
BEGIN 

rType: CSEIndex ■ P4Defs.0perandType[t] ; 
vType: CSEIndex « UnderType[(seb+f ield) . idtype]; 
addr: BitAddress; 
addr «- (seb+f ield) . idvalue; 
WITH r: (seb+rType) SELECT FROM 
record a > 

IF r. length < WordLength 

THEN addr.bd <- addr.bd + (WordLength - r. length); 
ENDCASE -> ERROR; 
RETURN [ExtractValue[t, addr, (seb+f ield) . idinfo, vType]] 
END; 



UnpackElement: PUBLIC PROCEDURE [t: TreeLink, i: CARDINAL] RETURNS [val: TreeLink] - 
BEGIN 

aType: CSEIndex - P4Def s.OperandType[t]; 
cType: CSEIndex; 
addr: BitAddress; 
nB: CARDINAL; 

BytesPerWord: CARDINAL - WordLength/ByteLength; 
WITH a: (seb+aType) SELECT FROM 
array *> 
BEGIN 

cType «- UnderType[a.componenttype]; nB «- P4Defs.BitsForType[cType]; 
IF nB > ByteLength OR -a. packed 
THEN 
BEGIN 

addr ♦- [wd:i, bd:0]; nB +• MAX[nB, WordLength]; 
END 
ELSE 
BEGIN 
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addr <- [wd: i/BytesPerWord, bd:(i MOD BytesPerWord)*ByteLength]; 
nB <- ByteLength; 
END; 
END; 
ENDCASE »> ERROR; 
RETURN [ExtractValue[t, addr, nB, cType]] 
END; 

-- operators 

Call: PUBLIC PROCEDURE [node: Treelndex] RETURNS [TreeLink] ■ 
BEGIN OPEN (tb+node); 
type: CSEIndex; 

sonl «- P4Defs.Exp[sonl, P4Defs.none] ; P4Def s .VPop[]; 
type «- P4Defs.0perandType[sonl]; 
WITH (seb+type) SELECT FROM 
transfer «> 

BEGIN 

son2 *- MakeArgRecord[inrecord, son2]; 

P4Defs.VPush[P4Defs.BiasForType[out record], P4Def s.RepForType[outrecord]]; 

END; 
ENDCASE »> ERROR; 
IF nsons > 2 THEN P4Def s .CatchNest[son3]; 
RETURN [TreeLink[subtree[index: node]]] 
END; 

New: PUBLIC PROCEDURE [node: Treelndex] RETURNS [TreeLink] « 
BEGIN OPEN (tb+node); 
sonl «- P4Def s.NeutralExp[sonl]; 
IF nsons > 2 THEN P4Def s.CatchNest[son3] ; 
P4Defs.VPush[0, P4Defs. unsigned] ; 
RETURN [TreeLink[subtree[index: node]]] 
END; 

Fork: PUBLIC PROCEDURE [node: Treelndex] RETURNS [TreeLink] - 
BEGIN OPEN (tb+node); 
type: CSEIndex; 

sonl «- P4Defs.Exp[sonl, P4Defs.none] ; P4Defs .VPop[]; 
type <- P4Def s.OperandType[sonl]; 
WITH (seb+type) SELECT FROM 
transfer «> 

BEGIN 

son2 <- MakeArgRecord[inrecord t son2]; 

P4Defs.VPush[0, P4Defs. other]; 

END; 
ENDCASE *> ERROR; 
IF nsons > 2 THEN P4Def s .CatchNest[son3]; 
RETURN [TreeLink[subtree[index: node]]] 
END; 



Construct: PUBLIC PROCEDURE [node: Treelndex] RETURNS [val ; TreeLink] « 
BEGIN OPEN (tb+node); 
type: RecordSEIndex - info; 
record: RecordSEIndex ■ RecordRoot[type]; 
subType: CSEIndex; 
subNode: Treelndex; 

IF listlength[son2] ■ 1 AND ~testtree[son2 , list] AND ~(seb+record) .variant 
THEN 
BEGIN 

subType <- UnderType[(seb+f irstvi si blese[( seb+type) .fieldctx]). id type]; 
son2 <- P4Defs .RValue[son2, P4Def s.BiasForType[subType] , 

TargetRep[P4Def s . Rep For Type [ subType] ]] ; 
IF ~P4Def s .AssignableRanges[subType, P4Defs.OperandType[son2]] 

THEN ErrorDef s .errortree[sizeClash , son2]; 
val *- P4Def s, ForceType[son2 , type]; 
son2 <- empty; f reenode[node]; 
END 
ELSE 
BEGIN 

subNode «- GetNode[son2 <- MakeRecord[record, son2]]; 
IF ( tb+subNode) .attrl — all fields constant 

THEN BEGIN val «- PackRecord[type, son2]; f reenode[node] END 
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ELSE 

BEGIN sonl <- f reetree[sonl]; 

pushtree[temp, 0]; setinfo[type]; setattr[l, FALSE]; 
(seb+record) .lengthUsed «- TRUE; 

sonl <- m 1 p o p [ ] ; val <- TreeLink[subtree[index: node]]; 
END; 
P4Defs.VPush[0, P4Defs. other]; 
END; 
RETURN 
END; 

Union: PUBLIC PROCEDURE [node: Treelndex] RETURNS [TreeLink] ■ 
BEGIN OPEN (tb+node); 
type: RecordSEIndex; 
tSei: CSEIndex « UnderType[info] ; 
WITH sonl SELECT FROM 

symbol => type <- LOOPHOLE[UnderType[index] , RecordSEIndex]; 
ENDCASE »> ERROR; 
son2 *- MakeRecord[type, son2]; (seb+type) . lengthUsed «- TRUE; 
attrl «- WITH son2 SELECT FROM 

subtree a > (tb+index) . attrl, 
ENDCASE => FALSE; 
attr2 <- WITH (seb+tSei) SELECT FROM 
union »> controlled, 
ENDCASE «> FALSE; 
P4Defs.VPush[0, P4Defs .other]; 
RETURN [TreeLink[subtree[index: node]]] 
END; 

RowConstruct: PUBLIC PROCEDURE [node: Treelndex] RETURNS [val: TreeLink] 
BEGIN OPEN (tb+node); 
aType: ArraySEIndex » info; 

cType: CSEIndex ■ UnderType[(seb+aType) .componenttype] ; 
n: CARDINAL = Cardinal ity[( seb+aType) . indextype] ; 
cBias: INTEGER = P4Def s .BiasForType[cType]; 
cRep: Repr * TargetRep[P4Def s .RepForType[cType]] ; 
const, strings, lstrings: BOOLEAN; 
1: CARDINAL; 

EvalElement: TreeMap ■ 
BEGIN 

node: Treelndex; 
IF t = empty 

THEN BEGIN v «- empty; const <- strings <~ lstrings «- FALSE END 
ELSE 
BEGIN 

v <- P4Defs.RValue[t, cBias, cRep]; 
IF ~P4Def s.AssignableRanges[cType, P4Defs.OperandType[v]] 

THEN v <- Resol veSizes[v, cType]; 
IF P4Defs.TreeLiteral[v] 

THEN strings «- lstrings <- FALSE 
ELSE 

WITH v SELECT FROM 
subtree «> 

BEGIN node *- index; 
SELECT (tb+node). name FROM 

mwconst »> strings <- lstrings +• FALSE; 
rowconsx => 

BEGIN const «- FALSE; 

IF ~(tb+node). attrl THEN strings «- FALSE; 
END; 
ENDCASE «> const «- strings <- lstrings <- FALSE; 
END; 
literal e > 

WITH info SELECT FROM 
string a > 

BEGIN const *- FALSE; 
IF LitDef s.MasterString[index] - index 
THEN lstrings <- FALSE 
ELSE strings «- FALSE; 
END; 
ENDCASE; 
ENDCASE -> const *- strings «- lstrings «- FALSE; 
P4Defs.VPop[]; 
END; 
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RETURN 
END; 

w, nW: CARDINAL; 

words: DESCRIPTOR FOR ARRAY OF WORD; 

bitsLeft: CARDINAL; 

bitCount: CARDINAL; 

PackElement: TreeScan ■ 
BEGIN 

node: Treelndex; 
IF P4Defs.TreeLitera1[t] 
THEN 
BEGIN 

bitsLeft <- bitsLeft - bitCount; 
words[w] <- Inl ineDefs .BITOR[words[w], 

InlineDefs.BITSHIFT[P4Defs.TreeLiteralValue[t], bitsLeft]]; 
IF bitsLeft < bitCount 

THEN BEGIN w «- w+1; bitsLeft ♦- WordLength END; 
END 
ELSE 

BEGIN node <- GetNode[t]; 
SELECT (tb+node) .name FROM 

mwconst => w +- FillMul tiWord[words, w, (tb+node) .sonl]; 
ENDCASE »> ERROR; 
END; 
RETURN 
END; 

SELECT (1 <- listlength[son2]) FROM 
« n «> NULL; 

> n ■> ErrorDef s .errorn[l istLong, 1-n]; 

< n => ErrorDef s.errorn[l istShort, n-1]; ( 

ENDCASE; 
const <- strings <- Istrings <- TRUE; 
son2 *- updatel ist[son2, EvalElement] ; 
IF const AND 1 ■ n 
THEN 
BEGIN 

nW <r P4Def s .WordsForType[aType]; 

words «- DESCRIPTOR[SystemDefs.AllocateHeapNode[nW], nW]; 
FOR w IN [0 .. nW) DO words[w] ♦■ ENDLOOP; 
bitCount <- 

IF (seb+aType) .packed AND P4Defs ,BitsForType[cType] <■ ByteLength 
THEN ByteLength ELSE WordLength; 
w «- 0; bitsLeft *- WordLength; 
scan! ist[son2 , PackElement]; f reenode[node]; 
push! ittree[LitDef s. FindLitDescrip tor [words]]; 
pushtree[IF nW = 1 THEN cast ELSE mwconst, 1]; setinf o[aType] ; 
SystemDef s . FreeHeapNode[BASE[words]] ; 
val <- mlpop[]; 
END 
ELSE 

BEGIN attrl ♦- strings # Istrings; 
sonl ♦- f reetree[sonl] ; 

pushtree[temp , 0]; setinfo[aType] ; setattr[l, FALSE]; sonl *• m1pop[]; 
(seb+aType) .lengthUsed <- TRUE; 
val *- [subtree[index: node]]; 
END; 
P4Defs.VPush[0, P4Defs. other]; RETURN 
END; 

Assignment: PUBLIC PROCEDURE [node: Treelndex] RETURNS [TreeLink] « 
BEGIN OPEN (tb+node); 
sonl *- P4Defs .Exp[sonl , P4Def s. none] ; 

son2 <- P4Defs.RValue[son2, P4Def s .VBias[] , TargetRep[P4Def s .VRep[]]]; 
P4Defs.VPop[]; 

RETURN [RewriteAssign[TreeLink[subtree[index: node]]]] 
END; 

TargetRep: PUBLIC PROCEDURE [rep: Repr] RETURNS [Repr] * 
BEGIN 

RETURN [IF rep ■ P4Defs.both THEN P4Defs . unsigned ELSE rep] 
END; 
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PushAssignment: PUBLIC PROCEDURE [id, val: TreeLink, type: CSEIndex] «■ 
BEGIN 

node: Treelndex; 
rewrite: BOOLEAN; 
rewrite <- TRUE; 
WITH val SELECT FROM 
subtree ■> 

BEGIN node <- index; 
SELECT (tb+node).name FROM 

body, signal ini t ■> rewrite «- FALSE; 
align »> 

BEGIN val <- ( tb+node) .sonl; 
(tb+node) .sonl <- empty; f reenode[node]; 
END; 
ENDCASE ■> NULL; 
END; 
ENDCASE «> NULL; 
scanlist[id, mlpush]; mlpush[val ]; 
THROUGH [1 .. listlength[id]) 
DO 

pushtree[assignx, 2]; setinfo[type] ; 
IF rewrite 

THEN mlpush[RewriteAssign[mlpop[]]] 
ELSE setattr[l, FALSE]; 
ENDLOOP; 
pushtree[assign , 2]; 
IF rewrite 

THEN mlpush[RewriteAssign[mlpop[]]] 
ELSE setattr[l, FALSE]; 
RETURN 
END; 

LongPath: PROCEDURE [t: TreeLink] RETURNS [long: BOOLEAN] - 
BEGIN 

node: Treelndex; 
WITH t SELECT FROM 
subtree => 

BEGIN node «- index; 
IF node s nullTreelndex 
THEN long <- FALSE 
ELSE SELECT (tb+node) . name FROM 

loophole, cast, openexp, align, assignx, constructx, rowconsx ■> 

long <- LongPath[( tb+node) .sonl]; 
ENDCASE 

-- dot, uparrow, dindex, reloc, seqindex, dollar, index — ■> 
long «- (tb+node) .attrl; 
END; 
ENDCASE => long <- FALSE; 
RETURN 
END; 

ResolveSizes: PUBLIC PROCEDURE [t: TreeLink, type: CSEIndex] RETURNS [val: TreeLink] 
BEGIN 

SELECT (seb+type).typetag FROM 
record ■> 
BEGIN 

mlpush[t]; pushtree[al ign, 1]; setinfo[type] ; val «- mlpop[]; 
END; 
union => val «- t; 

ENDCASE «> BEGIN val <- t; ErrorDef s.errortree[sizeClash, t] END; 
RETURN 
END; 

RewriteAssign: PROCEDURE [t: TreeLink] RETURNS [TreeLink] - 
BEGIN 

node, subNode: Treelndex; 
lType, rType, type: CSEIndex; 
leftAlign, rightAlign: BOOLEAN; 
node <- GetNode[t]; 

lType ♦- P4Defs.0perandType[(tb+node) .sonl]; 
rType «- P4Defs .OperandType[( tb+node) . son2]; 
(tb+node) .attrl +• leftAlign +■ rightAlign <- FALSE; 
IF ~P4Def s. AssignableRanges[lType, rType] 
THEN 
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WITH 1: (seb+lType) SELECT FROM 
record ■> 
WITH r: (seb+rType) SELECT FROM 
record ■> 

SELECT 1. length FROM 

> r. length -> leftAlign 4- TRUE; 
< r. length -> rightAlign «- TRUE; 
ENDCASE; 
ENDCASE »> ErrorDefs.errortree[sizeClash, (tb+node) . son2]; 
union »> NULL; 

ENDCASE -> ErrorDefs.errortree[sizeClash, (tb+node) .son2]; 
IF (tb+node). son2 # empty 
THEN 

WITH (tb+node). son2 SELECT FROM 
subtree ■> 

BEGIN subNode *- index; 
SELECT (tb+subNode). name FROM 
constructx, rowconsx ■> 

IF testtree[(tb+subNode) .sonl, temp] 
AND ~LongPath[(tb+node).sonl] 
THEN 
BEGIN 

IF (tb+node) .name ■ assign 
THEN 

(tb+subNode) .name «- 

IF (tb+subNode) .name - constructx 
THEN construct 
ELSE rowcons; 
[] «- f reetree[(tb+subNode) .sonl]; 
(tb+subNode) .sonl *- IF IType # SymDef s . typeANY 
THEN (tb+node). sonl 

ELSE P4Def s. ForceType[(tb+node) . sonl , rType]; 
(tb+subNode) .info «- (tb+node) . info; 
(tb+node) . sonl *- (tb+node) . son2 <- empty; 
f reenode[node] ; node <- subNode; 
leftAlign <- rightAlign <- FALSE; 
END; 
unionx => 
BEGIN 

subNode «- GetNode[( tb+node) .sonl] ; 
SELECT (tb+subNode). name FROM 
dot => 

BEGIN type ♦■ P4Defs .OperandType[( tb+subNode) . sonl] ; 
mlpush[( tb+subNode) . sonl] ; pushtree[uparrow, 1]; 
setinfo[WITH (seb+type) SELECT FROM 
pointer => UnderType[pointedtotype] , 
ENDCASE => SymDef s. typeANY]; 
(tb+subNode) . sonl «- mlpop[]; 
(tb+subNode) .name <- dollar; 
END; 
dollar «> NULL; 
ENDCASE => ERROR; 
(tb+node) .name «- IF (tb+node) .name s assignx 
THEN vconstructx 
ELSE vconstruct; 
leftAlign «- rightAlign <- FALSE; 
END; 
dot, dollar => 

IF (seb+rType) .typetag » union THEN (tb+node) .attrl ♦■ TRUE; 
ENDCASE; 
END; 
ENDCASE «> NULL; 
IF leftAlign 
THEN 
BEGIN 

mlpush[(tb+node) . sonl]; pushtree[al ign, 1]; setinfo[rType]; 
(tb+node) .sonl ♦- mlpop[]; 
END; 
IF rightAlign 
THEN 
BEGIN 

mlpush[(tb+node) .son2]; pushtree[al ign, 1]; setinfopType]; 
(tb+node) . son2 <~ mlpop[]; 
END; 
IF (tb+node) .name a assignx 

THEN (tb+node). info <- IF rightAlign THEN IType ELSE rType; 



Pass4Xa.mesa 2-Sep-78 12:59:59 Page 10 



RETURN [TreeLink[subtree[index: node]]] 
END; 

END. 



